' BASIC Anywhere Machine program by Charlie Veniot
' mod of bluejoe.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.25 at 01.23
1 IF i = 0 THEN SCREEN 13 ' ELSE OUT &H3C8, 0
2 LINE (0, 0)-(319, 199), 0, BF
3 FOR i = 1 TO 3590
'  4 IF i < 769 THEN OUT &H3C9, (((i - 1) MOD 3) AND 1) * ((i - 1) \ 3) \ 4
5 PSET (160 + COS((i / 10) + N%) * .1 * i, 100 + SIN(i / 10 + N%) * i / 10), i \ 10
6 NEXT
7 N% = N% + 1
8 _delay 0.05 ' WAIT &H3DA, 8
9 GOTO 2